Description: Convert color word to dGE numeric equivalent
Mapped Command:
FUNCTION __WordToColor(color)
   do case                                       // evaluate the color word passed
   case upper(color) == "BLACK"                  // and return the integer value
      retu(00)
   case upper(color) == "BLUE"                   // cyan
      retu(01)
   case upper(color) == "GREEN"                  // magenta
      retu(02)
   case upper(color) == "CYAN"                   // white
      retu(03)
   case upper(color) == "RED"                    // red
      retu(04)
   case upper(color) == "MAGENTA"                // magenta
      retu(05)
   case upper(color) == "BROWN"                  // brown
      retu(06)
   case upper(color) == "WHITE"
      retu(07)
   case upper(color) == "GREY" .or. upper(color) == "GRAY"
      retu(08)
   case upper(color) == "BRIGHT BLUE"
      retu(09)
   case upper(color) == "BRIGHT GREEN"
      retu(10)
   case upper(color) == "BRIGHT CYAN"
      retu(11)
   case upper(color) == "BRIGHT RED"
      retu(12)
   case upper(color) == "BRIGHT MAGENTA"
      retu(13)
   case upper(color) == "YELLOW"
      retu(14)
   case upper(color) == "BRIGHT WHITE"
      retu(15)
   otherwise                                     // if non of the words match, assume white
      retu(7)
   endcase
RETURN(Void)